home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / AACD / Programming / tek / kn / elate / visual / createvisual.asm < prev    next >
Encoding:
Assembly Source File  |  2001-05-12  |  4.8 KB  |  221 lines
  1.  
  2.     .include 'taort'
  3.     .include 'ave/toolkit/toolkit.inc'
  4.     .include 'lib/tek/kn/elate/visual.inc'
  5.  
  6.     .include 'ave/font/style.inc'
  7.     .include 'ave/font/enumerate.inc'
  8.  
  9. ;=============================================================================
  10. ;-----------------------------------------------------------------------------
  11. ; 
  12. ;    TEKlib
  13. ;    (C) 1999-2001 TEK neoscientists
  14. ;    all rights reserved.
  15. ;
  16. ;    TAPTR kn_createvisual(TAPTR mmu)
  17. ;
  18. ;-----------------------------------------------------------------------------
  19. ;=============================================================================
  20.  
  21.     tool 'lib/tek/kn/visual/createvisual',VP,0
  22.  
  23. ;-----------------------------------------------------------------------------
  24.  
  25. FONTHEIGHT    = 15
  26.  
  27. ;-----------------------------------------------------------------------------
  28.  
  29.     ent p0 : p0
  30.  
  31.     defbegin
  32.     defp mmu
  33.     defp fontman,fontdes,font,title
  34.     defi width,height,backcol,tok
  35.     defi index,temp
  36.  
  37.     defp visual,buffer,buffer2,ave,app,tkit,prp,win,cnt,layout,scrollpane,pixmap
  38.  
  39.         cpy.i    0,backcol
  40.         cpy.i    500,width
  41.         cpy.i    500,height
  42.  
  43.         cpy.p    appname,title
  44.  
  45.  
  46.         ;    alloc buffers.
  47.         
  48.         qcall    lib/malloc,(vis_size:visual)
  49.         bcn    visual eq 0,_cw_exit
  50.         
  51.         qcall    lib/memset,(visual,0,vis_size:p~)
  52.  
  53.         qcall    lib/malloc,(width*height*4:buffer)
  54.         bcn    buffer eq 0,_cw_fail
  55.         qcall    lib/memseti,(buffer,backcol,width*height*4:p~)
  56.         cpy.p    buffer,[visual+vis_buffer]
  57.  
  58.         qcall    lib/malloc,(width*height*4:buffer2)
  59.         bcn    buffer2 eq 0,_cw_fail
  60.         qcall    lib/memseti,(buffer2,backcol,width*height*4:p~)
  61.         cpy.p    buffer2,[visual+vis_buffer2]
  62.         
  63.  
  64.  
  65.         ;    get font.
  66.  
  67.         qcall    ave/font/getfm, (-:fontman)
  68.         bcn    fontman eq 0, _cw_fail
  69.     
  70.  
  71.         als    FNTMAN_FONTLIST_SIZE
  72.         cpy.p    sp,fontdes
  73.         qcall    ave/font/setfer,(fontdes:-)
  74.     ;    cpy.p    defaultfontname,[fontdes+FONT_DISPLAYNAME]
  75.         cpy.i    FDF_MONOSPACE|FDF_BOLD|FDF_NO_ANTIALIAS,[fontdes+FONT_DESCRIPTORFLAGS]
  76.         als    8
  77.         reftool    ave/font/cmp_displayname,[sp]
  78.         reftool    ave/font/cmp_flags,[sp+4]
  79.         qcall    ave/font/matchfont,(fontman,fontdes,sp,2.i:index)        
  80.         als    -8
  81.         als    -FNTMAN_FONTLIST_SIZE
  82.  
  83.         qcall    ave/font/openindex,(fontman,index,FONTHEIGHT:font)
  84.  
  85.         qcall    ave/font/losefm,(fontman:-)
  86.  
  87.         bcn    font eq 0, _cw_fail
  88.         cpy.p    font,[visual+vis_font]
  89.         
  90.         
  91.         cpy.i    FONTHEIGHT,[visual+vis_fontheight]
  92.  
  93.         cpy.i    -1,temp
  94.         ncall    font,getwidth,(font,temp:temp)
  95.         cpy.i    temp,[visual+vis_fontwidth]
  96.         cpy.i    FONTHEIGHT,[visual+vis_fontheight]
  97.     
  98.  
  99.  
  100.         ;    open ave.
  101.  
  102.         qcall    sys/kn/dev/lookup,(avename.p:ave,app)
  103.         bcn    ave eq 0,_cw_fail
  104.         
  105.         ncall    ave,open,(ave,app,0,0:app)
  106.         bcn    app eq 0,_cw_fail    
  107.  
  108.         cpy.p    app,[visual+vis_app]
  109.         cpy.p    ave,[visual+vis_ave]
  110.  
  111.  
  112.         ;    open toolkit.
  113.         
  114.         ncall    ave,opentoolkit,(ave:tkit)
  115.         bcn    tkit eq 0,_cw_fail
  116.         cpy.p    tkit,[visual+vis_toolkit]
  117.  
  118.  
  119.         ;    get application props, open window.
  120.  
  121.         ncall    app,getprop,(app:prp)
  122.         ncall    tkit,createdialog,(tkit,prp,title,0.p,width,height,FDI_BORDER|FDI_TITLE|FDI_DRAG|FDI_CLOSE|FDI_CONTENT|FDI_INNER|FDI_RESIZE:win)
  123.         bcn    win eq 0,_cw_fail
  124.         cpy.p    win,[visual+vis_window]
  125.  
  126.  
  127.         ;    cpy.i    4,tok
  128.         ;    ncall    win,settokenmask,(win,tok,tok:-)        ; ?
  129.  
  130.  
  131.  
  132.         ;    set layout/scrollpane.
  133.         
  134.         ncall    win,getgadgets,(win:p~,p~,cnt)
  135.         
  136.         qcall    ave/layout/scrollpane/open,(100,100:layout)
  137.         bcn    layout eq 0,_cw_fail
  138.         ncall    tkit,createscrollpane,(tkit,prp,0,0,0,FSP_CONTENT:scrollpane)
  139.         bcn    scrollpane eq 0,_cw_fail
  140.  
  141.         ncall    cnt,addlayout,(cnt,layout:-)
  142.         ncall    cnt,add,(cnt,scrollpane,0:-)
  143.         ncall    scrollpane,getgadgets,(scrollpane:p~,p~,cnt)
  144.  
  145.         ncall    cnt,setsize,(cnt,1000,1000:-)
  146.         ncall    cnt,change,(scrollpane,0,0,width,height,CM_NONE:-)
  147.         cpy.p    cnt,[visual+vis_content]
  148.         cpy.p    scrollpane,[visual+vis_scrollpane]
  149.  
  150.  
  151.         ;    get pixmaps.
  152.         
  153.         qcall    ave/avo/pix/32bit/open,(buffer2,width,height,width*4:pixmap)
  154.         bcn    pixmap eq 0,_cw_fail
  155.         cpy.p    pixmap,[visual+vis_pixmap2]
  156.  
  157.         qcall    ave/avo/pix/32bit/open,(buffer,width,height,width*4:pixmap)
  158.         bcn    pixmap eq 0,_cw_fail
  159.         cpy.p    pixmap,[visual+vis_pixmap]
  160.         ncall    cnt,add,(cnt,pixmap,0:-)
  161.  
  162.  
  163.  
  164.         ;    link window and application.
  165.     
  166.         ncall    win,addlink,(win,app,CH_DIALOG_ACTION,EV_QUIT:i~)
  167.         ncall    app,add,(app,win,0:-)
  168.         ncall    win,update,(win:-)
  169.  
  170.  
  171.  
  172.         ;    activate window.
  173.  
  174.         cpy.i    2,tok            
  175.         ncall    ave,settoken,(ave,win,tok:-)
  176.  
  177.  
  178.  
  179.         ;    misc initializitations.
  180.  
  181.         cpy.i    width,[visual+vis_width]    
  182.         cpy.i    height,[visual+vis_height]
  183.         cpy.i    backcol,[visual+vis_backcolor]
  184.  
  185.         cpy.p    visual,p0
  186.         ret
  187.  
  188. _cw_fail:
  189.         qcall    lib/tek/kn/visual/destroyvisual,(visual:-)
  190. _cw_exit:
  191.         cpy.p    0,p0
  192.         ret
  193.         
  194.     defend
  195.  
  196.  
  197. ;-----------------------------------------------------------------------------
  198.  
  199.         data
  200.     
  201. ;-----------------------------------------------------------------------------
  202.  
  203. inputmethodname:
  204.         dc.b 'demo/ave/inputmethod',0
  205.         .align
  206.  
  207. avename:    dc.b '/device/ave/',0
  208.         .align
  209.  
  210. appname:    dc.b 'visual',0
  211.         .align
  212.  
  213. defaultfontname:    dc.b 'Mono',0
  214.         .align
  215.  
  216.  
  217.     toolend
  218.  
  219. ;-----------------------------------------------------------------------------
  220. ;=============================================================================
  221.